/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / utils / mail-utils.elc.z / mail-utils.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 36 3a 30 32 20 31 | 39 39 38 0a 3b 3b 3b 20 |:56:02 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 75 74 69 6c |s-20.3/l|isp/util|
|000000a0| 73 2f 6d 61 69 6c 2d 75 | 74 69 6c 73 2e 65 6c 0a |s/mail-u|tils.el.|
|000000b0| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|000000c0| 6e 20 32 30 2e 34 20 22 | 45 6d 65 72 61 6c 64 22 |n 20.4 "|Emerald"|
|000000d0| 20 58 45 6d 61 63 73 20 | 20 4c 75 63 69 64 2e 0a | XEmacs | Lucid..|
|000000e0| 3b 3b 3b 20 62 79 74 65 | 63 6f 6d 70 20 76 65 72 |;;; byte|comp ver|
|000000f0| 73 69 6f 6e 20 32 2e 32 | 35 20 58 45 6d 61 63 73 |sion 2.2|5 XEmacs|
|00000100| 3b 20 32 32 2d 4d 61 72 | 2d 39 36 2e 0a 3b 3b 3b |; 22-Mar|-96..;;;|
|00000110| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 69 73 | optimiz|ation is|
|00000120| 20 6f 6e 2e 0a 3b 3b 3b | 20 74 68 69 73 20 66 69 | on..;;;| this fi|
|00000130| 6c 65 20 75 73 65 73 20 | 6f 70 63 6f 64 65 73 20 |le uses |opcodes |
|00000140| 77 68 69 63 68 20 64 6f | 20 6e 6f 74 20 65 78 69 |which do| not exi|
|00000150| 73 74 20 69 6e 20 45 6d | 61 63 73 20 31 39 2e 0a |st in Em|acs 19..|
|00000160| 0a 28 69 66 20 28 61 6e | 64 20 28 62 6f 75 6e 64 |.(if (an|d (bound|
|00000170| 70 20 27 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |p 'emacs|-version|
|00000180| 29 0a 09 20 28 6f 72 20 | 28 61 6e 64 20 28 62 6f |).. (or |(and (bo|
|00000190| 75 6e 64 70 20 27 65 70 | 6f 63 68 3a 3a 76 65 72 |undp 'ep|och::ver|
|000001a0| 73 69 6f 6e 29 20 65 70 | 6f 63 68 3a 3a 76 65 72 |sion) ep|och::ver|
|000001b0| 73 69 6f 6e 29 0a 09 20 | 20 20 20 20 28 73 74 72 |sion).. |    (str|
|000001c0| 69 6e 67 2d 6c 65 73 73 | 70 20 65 6d 61 63 73 2d |ing-less|p emacs-|
|000001d0| 76 65 72 73 69 6f 6e 20 | 22 32 30 22 29 29 29 0a |version |"20"))).|
|000001e0| 20 20 20 20 28 65 72 72 | 6f 72 20 22 60 6d 61 69 |    (err|or "`mai|
|000001f0| 6c 2d 75 74 69 6c 73 2e | 65 6c 27 20 77 61 73 20 |l-utils.|el' was |
|00000200| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|00000210| 63 73 20 32 30 22 29 29 | 0a 0a 28 6f 72 20 28 62 |cs 20"))|..(or (b|
|00000220| 6f 75 6e 64 70 20 27 63 | 75 72 72 65 6e 74 2d 6c |oundp 'c|urrent-l|
|00000230| 6f 61 64 2d 6c 69 73 74 | 29 20 28 73 65 74 71 20 |oad-list|) (setq |
|00000240| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00000250| 74 20 6e 69 6c 29 29 0a | 0a 0a 28 72 65 71 75 69 |t nil)).|..(requi|
|00000260| 72 65 20 27 6c 69 73 70 | 2d 6d 6f 64 65 29 0a 23 |re 'lisp|-mode).#|
|00000270| 40 31 34 38 20 2a 49 66 | 20 6e 6f 6e 2d 6e 69 6c |@148 *If| non-nil|
|00000280| 2c 20 75 73 65 20 61 20 | 66 75 6c 6c 2c 20 68 61 |, use a |full, ha|
|00000290| 69 72 79 20 52 46 43 38 | 32 32 20 70 61 72 73 65 |iry RFC8|22 parse|
|000002a0| 72 20 6f 6e 20 6d 61 69 | 6c 20 61 64 64 72 65 73 |r on mai|l addres|
|000002b0| 73 65 73 2e 0a 4f 74 68 | 65 72 77 69 73 65 2c 20 |ses..Oth|erwise, |
|000002c0| 28 74 68 65 20 64 65 66 | 61 75 6c 74 29 20 75 73 |(the def|ault) us|
|000002d0| 65 20 61 20 73 6d 61 6c | 6c 65 72 2c 20 73 6f 6d |e a smal|ler, som|
|000002e0| 65 77 68 61 74 20 66 61 | 73 74 65 72 2c 20 61 6e |ewhat fa|ster, an|
|000002f0| 64 0a 6f 66 74 65 6e 20 | 63 6f 72 72 65 63 74 20 |d.often |correct |
|00000300| 70 61 72 73 65 72 2e 1f | 0a 28 64 65 66 76 61 72 |parser..|.(defvar|
|00000310| 20 6d 61 69 6c 2d 75 73 | 65 2d 72 66 63 38 32 32 | mail-us|e-rfc822|
|00000320| 20 6e 69 6c 20 28 23 24 | 20 2e 20 2d 36 32 39 29 | nil (#$| . -629)|
|00000330| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 6d 61 69 |).(defal|ias 'mai|
|00000340| 6c 2d 66 69 6c 65 2d 62 | 61 62 79 6c 2d 70 20 23 |l-file-b|abyl-p #|
|00000350| 5b 28 66 69 6c 65 29 20 | 22 c0 c1 21 1a c3 8e 8a |[(file) |"..!....|
|00000360| 5c 6e 71 88 c4 0d c6 c7 | c8 24 88 c9 ca 21 2b 87 |\nq.....|.$...!+.|
|00000370| 22 20 5b 67 65 6e 65 72 | 61 74 65 2d 6e 65 77 2d |" [gener|ate-new-|
|00000380| 62 75 66 66 65 72 20 22 | 20 2a 72 6d 61 69 6c 2d |buffer "| *rmail-|
|00000390| 66 69 6c 65 2d 70 2a 22 | 20 62 75 66 20 28 28 6b |file-p*"| buf ((k|
|000003a0| 69 6c 6c 2d 62 75 66 66 | 65 72 20 62 75 66 29 29 |ill-buff|er buf))|
|000003b0| 20 69 6e 73 65 72 74 2d | 66 69 6c 65 2d 63 6f 6e | insert-|file-con|
|000003c0| 74 65 6e 74 73 20 66 69 | 6c 65 20 6e 69 6c 20 30 |tents fi|le nil 0|
|000003d0| 20 31 30 30 20 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 | 100 loo|king-at |
|000003e0| 22 42 41 42 59 4c 20 4f | 50 54 49 4f 4e 53 3a 22 |"BABYL O|PTIONS:"|
|000003f0| 5d 20 35 5d 29 0a 23 40 | 31 30 32 20 52 65 74 75 |] 5]).#@|102 Retu|
|00000400| 72 6e 73 20 61 20 73 74 | 72 69 6e 67 20 63 6f 6e |rns a st|ring con|
|00000410| 74 61 69 6e 69 6e 67 20 | 61 6c 6c 20 6f 66 20 53 |taining |all of S|
|00000420| 54 52 49 4e 47 20 65 78 | 63 65 70 74 20 74 68 65 |TRING ex|cept the|
|00000430| 20 70 61 72 74 0a 66 72 | 6f 6d 20 53 54 41 52 54 | part.fr|om START|
|00000440| 20 28 69 6e 63 6c 75 73 | 69 76 65 29 20 74 6f 20 | (inclus|ive) to |
|00000450| 45 4e 44 20 28 65 78 63 | 6c 75 73 69 76 65 29 2e |END (exc|lusive).|
|00000460| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 6d 61 69 |..(defal|ias 'mai|
|00000470| 6c 2d 73 74 72 69 6e 67 | 2d 64 65 6c 65 74 65 20 |l-string|-delete |
|00000480| 23 5b 28 73 74 72 69 6e | 67 20 73 74 61 72 74 20 |#[(strin|g start |
|00000490| 65 6e 64 29 20 22 08 ac | 85 09 c2 0b 4f 87 09 c2 |end) "..|....O...|
|000004a0| 0b 4f 09 08 c4 4f 50 87 | 22 20 5b 65 6e 64 20 73 |.O...OP.|" [end s|
|000004b0| 74 72 69 6e 67 20 30 20 | 73 74 61 72 74 20 6e 69 |tring 0 |start ni|
|000004c0| 6c 5d 20 34 20 28 23 24 | 20 2e 20 31 30 32 30 29 |l] 4 (#$| . 1020)|
|000004d0| 5d 29 0a 23 40 31 37 33 | 20 44 65 6c 65 74 65 20 |]).#@173| Delete |
|000004e0| 63 6f 6d 6d 65 6e 74 73 | 20 61 6e 64 20 71 75 6f |comments| and quo|
|000004f0| 74 65 64 20 73 74 72 69 | 6e 67 73 20 69 6e 20 61 |ted stri|ngs in a|
|00000500| 6e 20 61 64 64 72 65 73 | 73 20 6c 69 73 74 20 41 |n addres|s list A|
|00000510| 44 44 52 45 53 53 2e 0a | 41 6c 73 6f 20 64 65 6c |DDRESS..|Also del|
|00000520| 65 74 65 20 6c 65 61 64 | 69 6e 67 2f 74 72 61 69 |ete lead|ing/trai|
|00000530| 6c 69 6e 67 20 77 68 69 | 74 65 73 70 61 63 65 20 |ling whi|tespace |
|00000540| 61 6e 64 20 72 65 70 6c | 61 63 65 20 46 4f 4f 20 |and repl|ace FOO |
|00000550| 3c 42 41 52 3e 20 77 69 | 74 68 20 6a 75 73 74 20 |<BAR> wi|th just |
|00000560| 42 41 52 2e 0a 52 65 74 | 75 72 6e 20 61 20 6d 6f |BAR..Ret|urn a mo|
|00000570| 64 69 66 69 65 64 20 61 | 64 64 72 65 73 73 20 6c |dified a|ddress l|
|00000580| 69 73 74 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ist...(d|efalias |
|00000590| 27 6d 61 69 6c 2d 73 74 | 72 69 70 2d 71 75 6f 74 |'mail-st|rip-quot|
|000005a0| 65 64 2d 6e 61 6d 65 73 | 20 23 5b 28 61 64 64 72 |ed-names| #[(addr|
|000005b0| 65 73 73 29 20 22 08 85 | cf 00 09 ab 8c c2 c3 21 |ess) "..|.......!|
|000005c0| 88 c4 c5 c6 08 21 c7 23 | 87 c8 1e 09 ca cb 08 5c |.....!.#|.......\|
|000005d0| 22 88 08 cc 95 ca cd 08 | cc 95 23 4f 10 ca ce 08 |".......|..#O....|
|000005e0| 5c 22 ab b8 8a cf d0 21 | 71 88 d1 20 88 08 63 88 |\".....!|q.. ..c.|
|000005f0| d2 0e 13 21 88 d4 62 88 | d5 d6 c8 d7 23 ab 94 d8 |...!..b.|....#...|
|00000600| 75 88 d9 c8 78 88 60 8a | c8 da db 8f 88 60 29 7c |u...x.`.|.....`)||
|00000610| 88 aa 65 dc 20 10 d1 20 | 88 29 aa 93 ca dd 08 5c |..e. .. |.).....\|
|00000620| 22 89 16 09 ab 8a de 08 | 0e 09 cc 95 23 10 aa 6d |".......|....#..m|
|00000630| cc 16 09 ca df 08 0e 09 | 23 89 16 09 ab 9f 08 47 |........|#......G|
|00000640| cc 95 56 ab 8e 08 cc 95 | 48 e0 55 ab 86 cc 95 16 |..V.....|H.U.....|
|00000650| 09 aa 60 de 08 0e 09 cc | 95 23 10 aa 56 ca e1 08 |..`.....|.#..V...|
|00000660| 5c 22 89 16 09 ab a0 d4 | 95 e2 94 cc 95 1e 23 1e |\"......|......#.|
|00000670| 24 1e 25 de 08 0e 23 53 | 0e 23 23 10 de 08 0e 25 |$.%...#S|.##....%|
|00000680| 0e 24 23 10 2b aa 57 08 | 29 87 22 20 5b 61 64 64 |.$#.+.W.|)." [add|
|00000690| 72 65 73 73 20 6d 61 69 | 6c 2d 75 73 65 2d 72 66 |ress mai|l-use-rf|
|000006a0| 63 38 32 32 20 72 65 71 | 75 69 72 65 20 72 66 63 |c822 req|uire rfc|
|000006b0| 38 32 32 20 6d 61 70 63 | 6f 6e 63 61 74 20 69 64 |822 mapc|oncat id|
|000006c0| 65 6e 74 69 74 79 20 72 | 66 63 38 32 32 2d 61 64 |entity r|fc822-ad|
|000006d0| 64 72 65 73 73 65 73 20 | 22 2c 20 22 20 6e 69 6c |dresses |", " nil|
|000006e0| 20 70 6f 73 20 73 74 72 | 69 6e 67 2d 6d 61 74 63 | pos str|ing-matc|
|000006f0| 68 20 22 5c 5c 60 5b 20 | 09 5c 6e 5d 2a 22 20 30 |h "\\`[ |.\n]*" 0|
|00000700| 20 22 5b 20 09 5c 6e 5d | 2a 5c 5c 27 22 20 22 5b | "[ .\n]|*\\'" "[|
|00000710| 20 09 5d 2a 28 5c 5c 28 | 5b 5e 29 5c 22 5c 5c 5d | .]*(\\(|[^)\"\\]|
|00000720| 5c 5c 7c 5c 5c 5c 5c 2e | 5c 5c 7c 5c 5c 5c 5c 5c |\\|\\\\.|\\|\\\\\|
|00000730| 6e 5c 5c 29 2a 28 22 20 | 67 65 74 2d 62 75 66 66 |n\\)*(" |get-buff|
|00000740| 65 72 2d 63 72 65 61 74 | 65 20 22 20 2a 74 65 6d |er-creat|e " *tem|
|00000750| 70 2a 22 20 65 72 61 73 | 65 2d 62 75 66 66 65 72 |p*" eras|e-buffer|
|00000760| 20 73 65 74 2d 73 79 6e | 74 61 78 2d 74 61 62 6c | set-syn|tax-tabl|
|00000770| 65 20 6c 69 73 70 2d 6d | 6f 64 65 2d 73 79 6e 74 |e lisp-m|ode-synt|
|00000780| 61 78 2d 74 61 62 6c 65 | 20 31 20 73 65 61 72 63 |ax-table| 1 searc|
|00000790| 68 2d 66 6f 72 77 61 72 | 64 20 22 28 22 20 74 20 |h-forwar|d "(" t |
|000007a0| 2d 31 20 22 20 09 22 20 | 28 66 6f 72 77 61 72 64 |-1 " ." |(forward|
|000007b0| 2d 73 65 78 70 20 31 29 | 20 28 28 65 72 72 6f 72 |-sexp 1)| ((error|
|000007c0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 64 62 87 | (byte-c|ode "db.|
|000007d0| 22 20 5b 5d 20 31 29 29 | 29 20 62 75 66 66 65 72 |" [] 1))|) buffer|
|000007e0| 2d 73 74 72 69 6e 67 20 | 22 5b 20 09 5d 2a 28 5c |-string |"[ .]*(\|
|000007f0| 5c 28 5b 5e 29 5c 22 5c | 5c 5d 5c 5c 7c 5c 5c 5c |\([^)\"\|\]\\|\\\|
|00000800| 5c 2e 5c 5c 7c 5c 5c 5c | 5c 5c 6e 5c 5c 29 2a 29 |\.\\|\\\|\\n\\)*)|
|00000810| 22 20 6d 61 69 6c 2d 73 | 74 72 69 6e 67 2d 64 65 |" mail-s|tring-de|
|00000820| 6c 65 74 65 20 22 5b 20 | 09 5d 2a 5c 22 5c 5c 28 |lete "[ |.]*\"\\(|
|00000830| 5b 5e 5c 22 5c 5c 5d 5c | 5c 7c 5c 5c 5c 5c 2e 5c |[^\"\\]\|\|\\\\.\|
|00000840| 5c 7c 5c 5c 5c 5c 5c 6e | 5c 5c 29 2a 5c 22 5b 20 |\|\\\\\n|\\)*\"[ |
|00000850| 09 5c 6e 5d 2a 22 20 3f | 5c 40 20 22 5c 5c 28 2c |.\n]*" ?|\@ "\\(,|
|00000860| 5c 5c 73 2d 2a 5c 5c 7c | 5c 5c 60 5c 5c 29 5b 5e |\\s-*\\||\\`\\)[^|
|00000870| 2c 5d 2a 3c 5c 5c 28 5b | 5e 3e 2c 5d 2a 3e 5c 5c |,]*<\\([|^>,]*>\\|
|00000880| 29 22 20 32 20 63 6c 6f | 73 65 20 6a 75 6e 6b 2d |)" 2 clo|se junk-|
|00000890| 65 6e 64 20 6a 75 6e 6b | 2d 62 65 67 5d 20 36 20 |end junk|-beg] 6 |
|000008a0| 28 23 24 20 2e 20 31 32 | 34 31 29 5d 29 0a 28 62 |(#$ . 12|41)]).(b|
|000008b0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 21 ab 83 09 |yte-code| "..!...|
|000008c0| ac 82 c2 11 c0 87 22 20 | 5b 62 6f 75 6e 64 70 20 |......" |[boundp |
|000008d0| 72 6d 61 69 6c 2d 64 65 | 66 61 75 6c 74 2d 64 6f |rmail-de|fault-do|
|000008e0| 6e 74 2d 72 65 70 6c 79 | 2d 74 6f 2d 6e 61 6d 65 |nt-reply|-to-name|
|000008f0| 73 20 22 69 6e 66 6f 2d | 22 5d 20 32 29 0a 23 40 |s "info-|"] 2).#@|
|00000900| 31 30 38 20 2a 41 20 72 | 65 67 65 78 70 20 73 70 |108 *A r|egexp sp|
|00000910| 65 63 69 66 79 69 6e 67 | 20 6e 61 6d 65 73 20 74 |ecifying| names t|
|00000920| 6f 20 70 72 75 6e 65 20 | 6f 66 20 72 65 70 6c 79 |o prune |of reply|
|00000930| 20 74 6f 20 6d 65 73 73 | 61 67 65 73 2e 0a 41 20 | to mess|ages..A |
|00000940| 76 61 6c 75 65 20 6f 66 | 20 6e 69 6c 20 6d 65 61 |value of| nil mea|
|00000950| 6e 73 20 65 78 63 6c 75 | 64 65 20 79 6f 75 72 20 |ns exclu|de your |
|00000960| 6f 77 6e 20 6e 61 6d 65 | 20 6f 6e 6c 79 2e 1f 0a |own name| only...|
|00000970| 28 64 65 66 76 61 72 20 | 72 6d 61 69 6c 2d 64 6f |(defvar |rmail-do|
|00000980| 6e 74 2d 72 65 70 6c 79 | 2d 74 6f 2d 6e 61 6d 65 |nt-reply|-to-name|
|00000990| 73 20 6e 69 6c 20 28 23 | 24 20 2e 20 2d 32 33 30 |s nil (#|$ . -230|
|000009a0| 38 29 29 0a 23 40 31 38 | 34 20 52 65 74 75 72 6e |8)).#@18|4 Return|
|000009b0| 73 20 73 74 72 69 6e 67 | 20 6f 66 20 6d 61 69 6c |s string| of mail|
|000009c0| 20 61 64 64 72 65 73 73 | 65 73 20 55 53 45 52 49 | address|es USERI|
|000009d0| 44 53 20 73 61 6e 73 20 | 61 6e 79 20 72 65 63 69 |DS sans |any reci|
|000009e0| 70 69 65 6e 74 73 0a 74 | 68 61 74 20 73 74 61 72 |pients.t|hat star|
|000009f0| 74 20 77 69 74 68 20 6d | 61 74 63 68 65 73 20 66 |t with m|atches f|
|00000a00| 6f 72 20 60 72 6d 61 69 | 6c 2d 64 6f 6e 74 2d 72 |or `rmai|l-dont-r|
|00000a10| 65 70 6c 79 2d 74 6f 2d | 6e 61 6d 65 73 27 2e 0a |eply-to-|names'..|
|00000a20| 55 73 65 6e 65 74 20 70 | 61 74 68 73 20 65 6e 64 |Usenet p|aths end|
|00000a30| 69 6e 67 20 69 6e 20 61 | 6e 20 65 6c 65 6d 65 6e |ing in a|n elemen|
|00000a40| 74 20 74 68 61 74 20 6d | 61 74 63 68 65 73 20 61 |t that m|atches a|
|00000a50| 72 65 20 72 65 6d 6f 76 | 65 64 20 61 6c 73 6f 2e |re remov|ed also.|
|00000a60| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 72 6d 61 |..(defal|ias 'rma|
|00000a70| 69 6c 2d 64 6f 6e 74 2d | 72 65 70 6c 79 2d 74 6f |il-dont-|reply-to|
|00000a80| 20 23 5b 28 75 73 65 72 | 69 64 73 29 20 22 08 ac | #[(user|ids) "..|
|00000a90| 91 09 ab 85 09 c2 50 aa | 81 c3 c4 c5 20 21 c6 50 |......P.|.... !.P|
|00000aa0| 50 10 c7 08 c8 51 c9 ca | 89 1e 0b 1e 0c 1e 0d 1e |P....Q..|........|
|00000ab0| 0e cf 0e 0e 0e 10 5c 22 | 89 16 0c ab a8 0e 0c d1 |......\"|........|
|00000ac0| 56 ab 84 d2 94 16 0c cf | d3 0e 10 d1 95 23 ab 84 |V.......|.....#..|
|00000ad0| d1 95 aa 83 0e 10 47 16 | 0b d4 0e 10 0e 0c 0e 0b |......G.|........|
|00000ae0| 23 16 10 aa 4d cf d5 0e | 10 5c 22 89 16 0c ab 88 |#...M...|.\".....|
|00000af0| 0e 10 d1 0e 0c 4f 16 10 | cf d6 0e 10 5c 22 ab 88 |.....O..|....\"..|
|00000b00| 0e 10 d1 95 ca 4f aa 82 | 0e 10 2c 87 22 20 5b 72 |.....O..|..,." [r|
|00000b10| 6d 61 69 6c 2d 64 6f 6e | 74 2d 72 65 70 6c 79 2d |mail-don|t-reply-|
|00000b20| 74 6f 2d 6e 61 6d 65 73 | 20 72 6d 61 69 6c 2d 64 |to-names| rmail-d|
|00000b30| 65 66 61 75 6c 74 2d 64 | 6f 6e 74 2d 72 65 70 6c |efault-d|ont-repl|
|00000b40| 79 2d 74 6f 2d 6e 61 6d | 65 73 20 22 5c 5c 7c 22 |y-to-nam|es "\\|"|
|00000b50| 20 22 22 20 72 65 67 65 | 78 70 2d 71 75 6f 74 65 | "" rege|xp-quote|
|00000b60| 20 75 73 65 72 2d 6c 6f | 67 69 6e 2d 6e 61 6d 65 | user-lo|gin-name|
|00000b70| 20 22 5c 5c 3e 22 20 22 | 5c 5c 28 5e 5c 5c 7c 2c | "\\>" "|\\(^\\|,|
|00000b80| 5c 5c 29 5b 20 09 5c 6e | 5d 2a 5c 5c 28 5b 5e 2c |\\)[ .\n|]*\\([^,|
|00000b90| 5c 6e 5d 2a 5b 21 3c 5d | 5c 5c 7c 5c 5c 29 5c 5c |\n]*[!<]|\\|\\)\\|
|00000ba0| 28 22 20 22 5c 5c 29 22 | 20 74 20 6e 69 6c 20 65 |(" "\\)"| t nil e|
|00000bb0| 70 6f 73 20 70 6f 73 20 | 63 61 73 65 2d 66 6f 6c |pos pos |case-fol|
|00000bc0| 64 2d 73 65 61 72 63 68 | 20 6d 61 74 63 68 20 73 |d-search| match s|
|00000bd0| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 75 73 65 72 |tring-ma|tch user|
|00000be0| 69 64 73 20 30 20 32 20 | 22 2c 5b 20 09 5c 6e 5d |ids 0 2 |",[ .\n]|
|00000bf0| 2b 22 20 6d 61 69 6c 2d | 73 74 72 69 6e 67 2d 64 |+" mail-|string-d|
|00000c00| 65 6c 65 74 65 20 22 5b | 20 2c 09 5c 6e 5d 2a 5c |elete "[| ,.\n]*\|
|00000c10| 5c 27 22 20 22 5c 5c 73 | 20 2a 22 5d 20 34 20 28 |\'" "\\s| *"] 4 (|
|00000c20| 23 24 20 2e 20 32 34 37 | 34 29 5d 29 0a 23 40 32 |#$ . 247|4)]).#@2|
|00000c30| 37 39 20 52 65 74 75 72 | 6e 20 74 68 65 20 76 61 |79 Retur|n the va|
|00000c40| 6c 75 65 20 6f 66 20 74 | 68 65 20 68 65 61 64 65 |lue of t|he heade|
|00000c50| 72 20 66 69 65 6c 64 20 | 46 49 45 4c 44 2d 4e 41 |r field |FIELD-NA|
|00000c60| 4d 45 2e 0a 54 68 65 20 | 62 75 66 66 65 72 20 69 |ME..The |buffer i|
|00000c70| 73 20 65 78 70 65 63 74 | 65 64 20 74 6f 20 62 65 |s expect|ed to be|
|00000c80| 20 6e 61 72 72 6f 77 65 | 64 20 74 6f 20 6a 75 73 | narrowe|d to jus|
|00000c90| 74 20 74 68 65 20 68 65 | 61 64 65 72 73 20 6f 66 |t the he|aders of|
|00000ca0| 20 74 68 65 20 6d 65 73 | 73 61 67 65 2e 0a 49 66 | the mes|sage..If|
|00000cb0| 20 73 65 63 6f 6e 64 20 | 61 72 67 20 4c 41 53 54 | second |arg LAST|
|00000cc0| 20 69 73 20 6e 6f 6e 2d | 6e 69 6c 2c 20 75 73 65 | is non-|nil, use|
|00000cd0| 20 74 68 65 20 6c 61 73 | 74 20 73 75 63 68 20 66 | the las|t such f|
|00000ce0| 69 65 6c 64 20 69 66 20 | 74 68 65 72 65 20 61 72 |ield if |there ar|
|00000cf0| 65 20 73 65 76 65 72 61 | 6c 2e 0a 49 66 20 74 68 |e severa|l..If th|
|00000d00| 69 72 64 20 61 72 67 20 | 41 4c 4c 20 69 73 20 6e |ird arg |ALL is n|
|00000d10| 6f 6e 2d 6e 69 6c 2c 20 | 63 6f 6e 63 61 74 65 6e |on-nil, |concaten|
|00000d20| 61 74 65 20 61 6c 6c 20 | 73 75 63 68 20 66 69 65 |ate all |such fie|
|00000d30| 6c 64 73 20 77 69 74 68 | 20 63 6f 6d 6d 61 73 20 |lds with| commas |
|00000d40| 62 65 74 77 65 65 6e 2e | 1f 0a 28 64 65 66 61 6c |between.|..(defal|
|00000d50| 69 61 73 20 27 6d 61 69 | 6c 2d 66 65 74 63 68 2d |ias 'mai|l-fetch-|
|00000d60| 66 69 65 6c 64 20 23 5b | 28 66 69 65 6c 64 2d 6e |field #[|(field-n|
|00000d70| 61 6d 65 20 26 6f 70 74 | 69 6f 6e 61 6c 20 6c 61 |ame &opt|ional la|
|00000d80| 73 74 20 61 6c 6c 29 20 | 22 8a 65 62 88 c0 c1 c2 |st all) |".eb....|
|00000d90| 0b 21 c4 51 1d 1e 06 0e | 07 ab c4 c8 1e 09 ca 0d |.!.Q....|........|
|00000da0| cb c0 23 ab ae 60 1e 0c | cd 79 88 ce cf 21 ac 78 |..#..`..|.y...!.x|
|00000db0| d0 75 88 68 d1 b6 ab 85 | d0 75 88 aa 76 0e 09 89 |.u.h....|.u..v...|
|00000dc0| c8 98 ab 83 c8 aa 81 d2 | d3 0e 0c 60 5c 22 51 16 |........|...`\"Q.|
|00000dd0| 09 29 aa 4b 0e 09 c8 98 | 3f ad 82 0e 09 29 aa b0 |.).K....|?....)..|
|00000de0| ca 0d cb c0 23 ad a9 0e | 14 ab 87 ca 0d cb c0 23 |....#...|.......#|
|00000df0| ac 79 60 1e 0c cd 79 88 | ce cf 21 ac 78 d0 75 88 |.y`...y.|..!.x.u.|
|00000e00| 68 d5 b6 ab 85 d0 75 88 | aa 76 d3 0e 0c 60 5c 22 |h.....u.|.v...`\"|
|00000e10| 29 2b 87 22 20 5b 74 20 | 22 5e 22 20 72 65 67 65 |)+." [t |"^" rege|
|00000e20| 78 70 2d 71 75 6f 74 65 | 20 66 69 65 6c 64 2d 6e |xp-quote| field-n|
|00000e30| 61 6d 65 20 22 5b 20 09 | 5d 2a 3a 5b 20 09 5d 2a |ame "[ .|]*:[ .]*|
|00000e40| 22 20 6e 61 6d 65 20 63 | 61 73 65 2d 66 6f 6c 64 |" name c|ase-fold|
|00000e50| 2d 73 65 61 72 63 68 20 | 61 6c 6c 20 22 22 20 76 |-search |all "" v|
|00000e60| 61 6c 75 65 20 72 65 2d | 73 65 61 72 63 68 2d 66 |alue re-|search-f|
|00000e70| 6f 72 77 61 72 64 20 6e | 69 6c 20 6f 70 6f 69 6e |orward n|il opoin|
|00000e80| 74 20 31 20 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 22 |t 1 look|ing-at "|
|00000e90| 5b 20 09 5d 22 20 2d 31 | 20 28 3f 5c 20 20 3f 5c |[ .]" -1| (?\  ?\|
|00000ea0| 74 29 20 22 2c 20 22 20 | 62 75 66 66 65 72 2d 73 |t) ", " |buffer-s|
|00000eb0| 75 62 73 74 72 69 6e 67 | 2d 6e 6f 2d 70 72 6f 70 |ubstring|-no-prop|
|00000ec0| 65 72 74 69 65 73 20 6c | 61 73 74 20 28 3f 5c 20 |erties l|ast (?\ |
|00000ed0| 20 3f 5c 74 29 5d 20 35 | 20 28 23 24 20 2e 20 33 | ?\t)] 5| (#$ . 3|
|00000ee0| 31 32 33 29 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |123)]).(|defalias|
|00000ef0| 20 27 6d 61 69 6c 2d 70 | 61 72 73 65 2d 63 6f 6d | 'mail-p|arse-com|
|00000f00| 6d 61 2d 6c 69 73 74 20 | 23 5b 6e 69 6c 20 22 c0 |ma-list |#[nil ".|
|00000f10| 89 19 1a c3 c0 77 88 6d | ac 9a 60 11 c4 c0 77 88 |.....w.m|..`...w.|
|00000f20| c3 c0 78 88 09 60 7b 5c | 6e 42 12 c4 c0 77 88 c5 |..x..`{\|nB...w..|
|00000f30| c0 77 88 aa 63 5c 6e 2a | 87 22 20 5b 6e 69 6c 20 |.w..c\n*|." [nil |
|00000f40| 62 65 67 20 61 63 63 75 | 6d 75 6c 61 74 65 64 20 |beg accu|mulated |
|00000f50| 22 20 09 5c 6e 22 20 22 | 5e 2c 22 20 22 2c 20 09 |" .\n" "|^," ", .|
|00000f60| 5c 6e 22 5d 20 32 5d 29 | 0a 28 64 65 66 61 6c 69 |\n"] 2])|.(defali|
|00000f70| 61 73 20 27 6d 61 69 6c | 2d 63 6f 6d 6d 61 2d 6c |as 'mail|-comma-l|
|00000f80| 69 73 74 2d 72 65 67 65 | 78 70 20 23 5b 28 6c 61 |ist-rege|xp #[(la|
|00000f90| 62 65 6c 73 29 20 22 c0 | 19 c2 c3 0c 5c 22 ae 81 |bels) ".|....\"..|
|00000fa0| c5 11 0c 09 c2 c6 0c 09 | 23 4f 14 c2 c7 0c 5c 22 |........|#O....\"|
|00000fb0| 89 11 ab 8e 0c c5 09 4f | c8 0c c5 95 c0 4f 51 14 |.......O|.....OQ.|
|00000fc0| aa 6a 29 0c 87 22 20 5b | 6e 69 6c 20 70 6f 73 20 |.j).." [|nil pos |
|00000fd0| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 5b 5e |string-m|atch "[^|
|00000fe0| 20 09 5d 22 20 6c 61 62 | 65 6c 73 20 30 20 22 5b | .]" lab|els 0 "[|
|00000ff0| 20 09 5d 2a 24 22 20 22 | 5b 20 09 5d 2a 2c 5b 20 | .]*$" "|[ .]*,[ |
|00001000| 09 5d 2a 22 20 22 5c 5c | 7c 22 5d 20 36 5d 29 0a |.]*" "\\||"] 6]).|
|00001010| 28 64 65 66 61 6c 69 61 | 73 20 27 6d 61 69 6c 2d |(defalia|s 'mail-|
|00001020| 72 66 63 38 32 32 2d 74 | 69 6d 65 2d 7a 6f 6e 65 |rfc822-t|ime-zone|
|00001030| 20 23 5b 28 74 69 6d 65 | 29 20 22 c0 09 21 40 ae | #[(time|) "..!@.|
|00001040| 81 c2 1b c4 0b 21 c5 a5 | 1e 06 c7 c8 0b c2 57 ab |.....!..|......W.|
|00001050| 83 c9 aa 81 ca 0e 06 c5 | a5 0e 06 c5 a6 24 2a 87 |........|.....$*.|
|00001060| 22 20 5b 63 75 72 72 65 | 6e 74 2d 74 69 6d 65 2d |" [curre|nt-time-|
|00001070| 7a 6f 6e 65 20 74 69 6d | 65 20 30 20 73 65 63 20 |zone tim|e 0 sec |
|00001080| 61 62 73 20 36 30 20 61 | 62 73 6d 69 6e 20 66 6f |abs 60 a|bsmin fo|
|00001090| 72 6d 61 74 20 22 25 63 | 25 30 32 64 25 30 32 64 |rmat "%c|%02d%02d|
|000010a0| 22 20 3f 5c 2d 20 3f 5c | 2b 5d 20 36 5d 29 0a 28 |" ?\- ?\|+] 6]).(|
|000010b0| 64 65 66 61 6c 69 61 73 | 20 27 6d 61 69 6c 2d 72 |defalias| 'mail-r|
|000010c0| 66 63 38 32 32 2d 64 61 | 74 65 20 23 5b 6e 69 6c |fc822-da|te #[nil|
|000010d0| 20 22 c0 20 19 c2 09 21 | 1b c4 c5 0b 5c 22 88 0b | ". ...!|....\"..|
|000010e0| c6 94 c6 95 4f c7 0b c8 | 94 c8 95 4f c7 0b c9 94 |....O...|...O....|
|000010f0| c9 95 4f c7 0b ca 94 ca | 95 4f c7 cb 09 21 b0 09 |..O.....|.O...!..|
|00001100| 2a 87 22 20 5b 63 75 72 | 72 65 6e 74 2d 74 69 6d |*." [cur|rent-tim|
|00001110| 65 20 74 69 6d 65 20 63 | 75 72 72 65 6e 74 2d 74 |e time c|urrent-t|
|00001120| 69 6d 65 2d 73 74 72 69 | 6e 67 20 73 20 73 74 72 |ime-stri|ng s str|
|00001130| 69 6e 67 2d 6d 61 74 63 | 68 20 22 5b 5e 20 5d 2b |ing-matc|h "[^ ]+|
|00001140| 20 2b 5c 5c 28 5b 5e 20 | 5d 2b 5c 5c 29 20 2b 5c | +\\([^ |]+\\) +\|
|00001150| 5c 28 5b 5e 20 5d 2b 5c | 5c 29 20 5c 5c 28 5b 5e |\([^ ]+\|\) \\([^|
|00001160| 20 5d 2b 5c 5c 29 20 5c | 5c 28 5b 5e 20 5d 2b 5c | ]+\\) \|\([^ ]+\|
|00001170| 5c 29 22 20 32 20 22 20 | 22 20 31 20 34 20 33 20 |\)" 2 " |" 1 4 3 |
|00001180| 6d 61 69 6c 2d 72 66 63 | 38 32 32 2d 74 69 6d 65 |mail-rfc|822-time|
|00001190| 2d 7a 6f 6e 65 5d 20 31 | 30 5d 29 0a 28 70 72 6f |-zone] 1|0]).(pro|
|000011a0| 76 69 64 65 20 27 6d 61 | 69 6c 2d 75 74 69 6c 73 |vide 'ma|il-utils|
|000011b0| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+